The Big Mouth 10/Big_Mouth_The_10_1996_-_Side_A.d64/the main menu_bm

Commodore BASIC | 2023-02-26 | 2KB | 52 lines

1 rem"          "for bm staff eyes only!(NULL)
2 poke 808,234:poke 53280,0:poke 53281,0
20 print"[147][155]"tab(7)"the big mouth - main menu"
30 print"a - the editorial bit"
31 print"b - stuff"
32 print"c - the c64 world"
33 print"d - simba's c64 reviews"
34 print"e - the king of pd"
35 print"f - the big mouth surveys"
36 print"g - the big mouth missives"
37 print"h - computers vs consoles"
38 print"i - zool runs amok"
39 print"j - the non c64 bits"
40 print"k - the dirty rotten cheats"
41 print"l - the big mouth classifieds"
42 print"m - dots and boxes"
43 print"n - numbers"
50 print"     pick a program to load (a-n) ?"
55 get a$:if a$="" then 55
60 a=asc(a$):if a-64<1 or a-64>14 then 55
65 forx=49152 to 49170:ready:poke x,y:nextx
70 if a-64=12 then 155
75 print"  loading..."
76 if a-64=13 then 160
77 if a-64=14 then 165
80 sys 49152
81 data 120,169,013,141,040,003,169,192
82 data 141,041,003,088,096,238,032,208
83 data 076,237,246
84 on a-64 goto 100,105,110,115,120,125,130,135,140,145,150
85 on a-64 goto 100,105,110,115,120,125,130,135,140,145,150
99 :
100 load"th'editorial bit",8,1
105 load"   - stuff -    ",8,1
110 load" the c64 world  ",8,1
115 load"simba's reviews ",8,1
120 load" the king of pd ",8,1
125 load" the bm surveys ",8,1
130 load"the bm missives ",8,1
135 load"'puters vs 'sles",8,1
140 load" zool runs amok ",8,1
145 load"the non c64 bits",8,1
150 load"the dirty cheats",8,1
155 print"     turn disk over and press space "
156 get a$:if a$<>chr$(32) then 156
157 print"  loading..."
158 sys 49152
159 load" bm classifieds ",8,1
160 print"load"chr$(34)"dots and boxes"chr$(34)",8,1":print"run[145][145][145][145][145][145][145][145]"
161 end
165 load"    numbers     ",8